home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / FLAT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  57 lines
  1. 10  HOME : TEXT 
  2. 20  PRINT 
  3. 30  PRINT "The INCIDENT RAY is the beam of light   that hits the mirror."
  4. 35  PRINT 
  5. 40  PRINT "The REFLECTION RAY is the beam of       light leaving the mirror."
  6. 45  PRINT 
  7. 50  PRINT "For example, if the beam of light hits  the mirror at a 55 degree angle...."
  8. 55  PRINT 
  9. 60  PRINT "     |         "
  10. 62  PRINT "     |        beam"
  11. 64  PRINT "     |       b"
  12. 66  PRINT "     |      b"
  13. 68  PRINT "     |     b"
  14. 70  PRINT "     |    b"
  15. 72  PRINT "     |   b"
  16. 74  PRINT "     |  b"
  17. 76  PRINT "     | b"
  18. 78  PRINT "     |b"
  19. 80  PRINT "     |------------- Line perpendicular"
  20. 82  PRINT "     |"
  21. 84  GOSUB 150
  22. 86  PRINT "             Press any key."
  23. 88  GET KY$
  24. 89  HOME 
  25. 90  PRINT "....then the reflected ray will leave   the mirror at a 55 degree angle."
  26. 91  PRINT 
  27. 92  PRINT "     |"
  28. 93  PRINT "     |      beam"
  29. 94  PRINT "     |     b"
  30. 95  PRINT "     |    b"
  31. 96  PRINT "     |   b"
  32. 97  PRINT "     |  b"
  33. 98  PRINT "     | b"
  34. 99  PRINT "     |b"
  35. 100  PRINT "     |------------- Line perpendicular"
  36. 101  PRINT "     |b"
  37. 102  PRINT "     | b"
  38. 103  PRINT "     |  b"
  39. 104  PRINT "     |   b"
  40. 105  PRINT "     |    b"
  41. 106  PRINT "     |     b"
  42. 107  PRINT "     |      beam"
  43. 108  PRINT "     |"
  44. 109  PRINT 
  45. 110  GOSUB 150
  46. 111  PRINT "Enter <P> to see the diagram of the     flat mirror again or enter <N> to see   what kind of mirror turns images        upside down."
  47. 112  GET KY$
  48. 118  IF KY$ = "p"  OR KY$ = "P"  THEN  PRINT  CHR$(4);"run m1"
  49. 119  IF KY$ = "n"  OR KY$ = "N"  THEN  PRINT  CHR$(4);"run m2"
  50. 124  PRINT 
  51. 125  PRINT "Please enter either <P> or <N> only."
  52. 126  PRINT 
  53. 130  GOTO 112
  54. 150  FOR I = 0 TO 3000
  55. 152 J = 1
  56. 154  NEXT I
  57. 156  RETURN